version 16.0
set more off

***********************************************************************************************************************
* THIS ROUTINE GENERATES FIGURE A.VIII OF WASEEM (2020) ROLE OF WITHHOLDING ...
***********************************************************************************************************************

use				"$project_data\Electricity Prices.dta", clear
replace			From=13696 if From==d(01feb1997) //Electricity prices on 01/07/1997 were the same as in February 1997
#d				;
twoway  		(connected  Tariff From if From>=d(30jun1997) & From<d(01jul2004), sort lwidth(thick) lcolor(red) mcolor(red) msymbol(o)),
				xtitle("Month of the Year") xscale(titlegap(*10))
				xlabel(13696 "97" 14061 "98" 14426 "99" 14792 "00" 15157 "01" 15522 "02" 15887 "03") 
				xline(14061 14426 14792, lpatter(dash) lcolor(green))
				yscale(r(0))  yscale(titlegap(*10)) ytitle("Price (PKR/KWH)") 
				ylabel(0(2)6)
				graphregion(fcolor(white) style(none) color(white) margin(0 2 0 2)) bgcolor(white);
graph 			export "$project_output\ElectricityPrices_1997_2004.eps", replace;
#d				cr
* The electricity price data have been compiled from Table 14.4 of Economic Survey of Pakistan of various years

use				"$project_data\ImportsGDP.dta", clear
#d				;
twoway  		(connected  imports fy if fy>=1997 & fy<2005, sort lwidth(thick) lcolor(red) mcolor(red) msymbol(o)),
				xtitle("Financial Year") xscale(titlegap(*10))
				xlabel(1997 "97" 1998 "98" 1999 "99" 2000 "00" 2001 "01" 2002 "02" 2003 "03" 2004 "04") 
				xline(1998 1999 2000, lpatter(dash) lcolor(green))
				yscale(r(0))  yscale(titlegap(*10)) ytitle("Imports as a % of GDP") 
				ylabel(0(5)20) 
				graphregion(fcolor(white) style(none) color(white) margin(0 2 0 2)) bgcolor(white);
graph 			export "$project_output\Imports_GDP.eps", replace;
#d				cr
* The data have been compiled from Table 8.2 of Economic Survey of Pakistan of various years

